home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / comm / bbs / top_v1_0.lha / top1.0 / TopUp.rexx < prev   
OS/2 REXX Batch file  |  1995-02-25  |  2KB  |  97 lines
  1. /* XTOP! Downloaders Module! */
  2. /* L'ordine e` : 1- Nome, 2 - Bytes,3 - Number of Files */
  3.  
  4. Options Results
  5. Signal On Syntax
  6.  
  7. patt = 'BBS:Text/New_TopUp'
  8.  
  9. If ~Exists(Patt) Then Exit
  10.  
  11. K = Open(File,Patt,'R')
  12.  
  13. Do I = 1 To 10
  14.     Do P = 1 To 4
  15.         ULIST.I.P = Readln(File)
  16.     End
  17. End
  18. K = Close(File)
  19. BAUD
  20. LPL = Result
  21. GetUser 1
  22. USER.1 = Result
  23. GetUser 34
  24. USER.2 = Result
  25. GetUser 35
  26. USER.3 = Result
  27. GetUser 4
  28. USER.4 = Left(Result,12,' ')||'\C6 ³\C7 '
  29. GetUser 44
  30. CPS = Result
  31. If CPS = 0 Then DO
  32.     CPS = LPL % 10
  33.     CPS = CPS + CPS % 7
  34. END
  35. USER.4 = USER.4||Right(CPS,4)||'\C6 ³ \C7'
  36. BAUD
  37. BPS = Result
  38. USER.4 = USER.4||Right(BPS,5)' \C6'
  39.  
  40. DO I = 1 To 10
  41.     If ULIST.I.1 = USER.1 Then DO
  42.         POS = I
  43.         DO L = POS TO 9
  44.             C = L + 1
  45.             DO O = 1 To 4
  46.                 ULIST.L.O = ULIST.C.O
  47.             END
  48.         END
  49.         I = 10
  50.         POS = 10
  51.         Do P = 1 To 4
  52.             ULIST.POS.P = USER.P
  53.         End
  54.     END
  55. END
  56.  
  57. DO I = 1 TO 10
  58.     If ULIST.I.2 <= USER.2 Then DO
  59.         POS = I
  60.         I = 10
  61.     END
  62. END
  63.  
  64. DO Z = POS To 9
  65.     K = 9 - (Z - POS)
  66.     C = K + 1
  67.     DO O = 1 To 4
  68.         ULIST.C.O = ULIST.K.O
  69.     END
  70. END
  71.  
  72. Do P = 1 To 4
  73.     ULIST.POS.P = USER.P
  74. End
  75.  
  76. K = OPEN(File,Patt,'W')
  77. Do I = 1 To 10
  78.     Do P = 1 To 4
  79.         G = Writeln(file,ULIST.I.P)
  80.     End
  81. End
  82. K = Close(File)
  83.  
  84. TRANSMIT '\C2-*- XTop! Best Top Ten Uploaders -- Program By Massimiliano Pala ''95 -*-'
  85. TRANSMIT '\C6ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÑÍÍÍÍÍÍÍ»'
  86. TRANSMIT '\C6º \C5Name                \C6³\C5 Bytes       Files  \C6³\C5 From         \C6³\C5 Cps  \C6³\C5 Baud  \C6º'
  87. TRANSMIT '\C6ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍØÍÍÍÍÍÍ͹'
  88. DO I = 1 To 10
  89.     linea = '\C6º\C7 'Left(ULIST.I.1,20)'\C6³\C7 'Right(ULIST.I.2,10)' \C6(\C1'Right(ULIST.I.3,5)'\C6) ³\C7 '
  90.     Linea = Linea||ULIST.I.4||'º'
  91.     TRANSMIT Linea
  92. END
  93. TRANSMIT '\C6ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÏÍÍÍÍÍÍ͹'
  94. TRANSMIT '\C6º \C2You Have Reached the \C3'Right(POS,2)'\C2 Position in this Classification for UpLoads!   \C6º'
  95. TRANSMIT '\C6ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ'
  96.  
  97.